/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Oberon⁄F™ 1.2 / Preinstalled version / System / Docu / Meta

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 4d 65 74 61 00 00 | 00 00 00 00 00 00 00 00 |..Meta..|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 6f 4f 44 43 6f 62 6e | 46 01 00 00 00 00 00 00 |.oODCobn|F.......|
|00000050| 00 00 00 00 00 26 e6 00 | 00 01 3e ad 3d 6b 0e ad |.....&..|..>.=k..|
|00000060| 3e 93 23 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |>.#.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 73 12 00 00 |........|....s...|
|00000080| 43 44 4f 6f 00 00 00 00 | 82 f1 44 6f 63 75 6d 65 |CDOo....|..Docume|
|00000090| 6e 74 73 2e 53 74 64 44 | 6f 63 75 6d 65 6e 74 44 |nts.StdD|ocumentD|
|000000a0| 65 73 63 00 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 44 |esc..Doc|uments.D|
|000000b0| 6f 63 75 6d 65 6e 74 44 | 65 73 63 00 f1 43 6f 6e |ocumentD|esc..Con|
|000000c0| 74 61 69 6e 65 72 73 2e | 56 69 65 77 44 65 73 63 |tainers.|ViewDesc|
|000000d0| 00 f1 56 69 65 77 73 2e | 56 69 65 77 44 65 73 63 |..Views.|ViewDesc|
|000000e0| 00 f0 53 74 6f 72 65 73 | 2e 53 74 6f 72 65 44 65 |..Stores|.StoreDe|
|000000f0| 73 63 00 00 00 00 00 00 | 00 00 00 07 00 00 00 63 |sc......|.......c|
|00000100| 26 00 00 00 00 00 83 f1 | 44 6f 63 75 6d 65 6e 74 |&.......|Document|
|00000110| 73 2e 4d 6f 64 65 6c 44 | 65 73 63 00 f1 43 6f 6e |s.ModelD|esc..Con|
|00000120| 74 61 69 6e 65 72 73 2e | 4d 6f 64 65 6c 44 65 73 |tainers.|ModelDes|
|00000130| 63 00 f1 4d 6f 64 65 6c | 73 2e 4d 6f 64 65 6c 44 |c..Model|s.ModelD|
|00000140| 65 73 63 00 f1 53 74 6f | 72 65 73 2e 45 6c 65 6d |esc..Sto|res.Elem|
|00000150| 44 65 73 63 00 f2 04 00 | 00 00 00 00 00 00 b1 25 |Desc....|.......%|
|00000160| 00 00 09 00 00 00 a9 25 | 00 00 00 00 00 00 00 82 |.......%|........|
|00000170| f1 54 65 78 74 56 69 65 | 77 73 2e 53 74 64 56 69 |.TextVie|ws.StdVi|
|00000180| 65 77 44 65 73 63 00 f1 | 54 65 78 74 56 69 65 77 |ewDesc..|TextView|
|00000190| 73 2e 56 69 65 77 44 65 | 73 63 00 f2 02 00 00 00 |s.ViewDe|sc......|
|000001a0| 00 00 00 00 00 00 00 00 | 07 00 00 00 53 25 00 00 |........|....S%..|
|000001b0| 00 00 00 83 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|000001c0| 53 74 64 4d 6f 64 65 6c | 44 65 73 63 00 f1 54 65 |StdModel|Desc..Te|
|000001d0| 78 74 4d 6f 64 65 6c 73 | 2e 4d 6f 64 65 6c 44 65 |xtModels|.ModelDe|
|000001e0| 73 63 00 f2 06 00 00 00 | 00 00 00 00 16 24 00 00 |sc......|.....$..|
|000001f0| 0f 00 00 00 0e 24 00 00 | 00 00 00 00 00 00 0d 05 |.....$..|........|
|00000200| 00 00 00 82 f1 54 65 78 | 74 4d 6f 64 65 6c 73 2e |.....Tex|tModels.|
|00000210| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000220| 04 00 00 00 00 00 00 00 | 36 00 00 00 00 00 00 00 |........|6.......|
|00000230| 22 00 00 00 00 00 00 00 | 00 01 00 00 00 00 48 65 |".......|......He|
|00000240| 6c 76 65 74 69 63 61 00 | b4 21 02 00 00 00 00 00 |lvetica.|.!......|
|00000250| 90 01 00 00 00 00 00 00 | 00 00 00 2a 75 15 54 c8 |........|...*u.T.|
|00000260| 06 00 82 f1 54 65 78 74 | 52 75 6c 65 72 73 2e 53 |....Text|Rulers.S|
|00000270| 74 64 52 75 6c 65 72 44 | 65 73 63 00 f1 54 65 78 |tdRulerD|esc..Tex|
|00000280| 74 52 75 6c 65 72 73 2e | 52 75 6c 65 72 44 65 73 |tRulers.|RulerDes|
|00000290| 63 00 f2 03 00 00 00 00 | 00 00 00 ac 00 00 00 07 |c.......|........|
|000002a0| 00 00 00 a3 00 00 00 00 | 00 00 83 f1 54 65 78 74 |........|....Text|
|000002b0| 52 75 6c 65 72 73 2e 53 | 74 64 53 74 79 6c 65 44 |Rulers.S|tdStyleD|
|000002c0| 65 73 63 00 f1 54 65 78 | 74 52 75 6c 65 72 73 2e |esc..Tex|tRulers.|
|000002d0| 53 74 79 6c 65 44 65 73 | 63 00 f2 07 00 00 00 00 |StyleDes|c.......|
|000002e0| 00 00 00 00 00 00 00 08 | 00 00 00 5a 00 00 00 00 |........|...Z....|
|000002f0| 00 00 00 82 f1 54 65 78 | 74 52 75 6c 65 72 73 2e |.....Tex|tRulers.|
|00000300| 41 74 74 72 69 62 75 74 | 65 73 44 65 73 63 00 f2 |Attribut|esDesc..|
|00000310| 04 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 24 00 00 00 00 01 00 00 | 00 00 00 00 00 00 00 00 |$.......|........|
|00000330| 00 00 00 00 00 00 c8 0d | 02 00 c0 a8 00 00 88 b6 |........|........|
|00000340| 02 00 03 00 00 00 00 00 | 00 00 01 82 f2 0d 00 00 |........|........|
|00000350| 00 00 00 00 00 34 00 00 | 00 00 00 00 00 22 00 00 |.....4..|....."..|
|00000360| 00 00 00 00 00 00 01 00 | 00 00 00 48 65 6c 76 65 |........|...Helve|
|00000370| 74 69 63 61 00 c0 19 03 | 00 00 00 00 00 bc 02 00 |tica....|........|
|00000380| 00 00 00 04 00 00 00 00 | 02 00 00 00 02 82 f2 0d |........|........|
|00000390| 00 00 00 00 00 00 00 34 | 00 00 00 00 00 00 00 22 |.......4|......."|
|000003a0| 00 00 00 00 00 00 00 00 | 01 00 00 00 00 48 65 6c |........|.....Hel|
|000003b0| 76 65 74 69 63 61 00 18 | f0 01 00 00 00 00 00 90 |vetica..|........|
|000003c0| 01 00 00 00 00 72 09 00 | 00 00 02 00 00 00 03 82 |.....r..|........|
|000003d0| f2 0d 00 00 00 00 00 00 | 00 5c 00 00 00 00 00 00 |........|.\......|
|000003e0| 00 22 00 00 00 00 00 00 | 00 00 01 00 00 00 00 48 |."......|.......H|
|000003f0| 65 6c 76 65 74 69 63 61 | 00 b4 21 02 00 01 00 00 |elvetica|..!.....|
|00000400| 00 90 01 00 00 00 00 04 | 00 00 00 00 36 00 00 00 |........|....6...|
|00000410| 03 04 00 00 00 00 66 00 | 00 00 03 04 00 00 00 00 |......f.|........|
|00000420| 5a 00 00 00 03 04 00 00 | 00 00 6b 00 00 00 03 04 |Z.......|..k.....|
|00000430| 00 00 00 00 a4 00 00 00 | 04 82 f2 0d 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 22 00 00 00 00 |........|..."....|
|00000450| 00 00 00 00 01 00 00 00 | 00 48 65 6c 76 65 74 69 |........|.Helveti|
|00000460| 63 61 00 b4 21 02 00 00 | 00 00 00 bc 02 00 00 00 |ca..!...|........|
|00000470| 00 05 00 00 00 00 53 00 | 00 00 04 29 00 00 00 00 |......S.|...)....|
|00000480| 18 00 00 00 04 46 00 00 | 00 00 05 00 00 00 04 1f |.....F..|........|
|00000490| 00 00 00 00 16 00 00 00 | 04 1a 00 00 00 00 1c 00 |........|........|
|000004a0| 00 00 04 04 00 00 00 00 | 29 00 00 00 04 05 00 00 |........|).......|
|000004b0| 00 00 62 00 00 00 04 05 | 00 00 00 00 25 00 00 00 |..b.....|....%...|
|000004c0| 03 03 00 00 00 00 1a 00 | 00 00 03 03 00 00 00 00 |........|........|
|000004d0| 66 00 00 00 04 04 00 00 | 00 00 0c 00 00 00 04 04 |f.......|........|
|000004e0| 00 00 00 00 24 00 00 00 | 04 04 00 00 00 00 26 00 |....$...|......&.|
|000004f0| 00 00 04 04 00 00 00 00 | 26 00 00 00 04 04 00 00 |........|&.......|
|00000500| 00 00 23 00 00 00 04 05 | 00 00 00 00 97 00 00 00 |..#.....|........|
|00000510| 04 07 00 00 00 00 28 00 | 00 00 04 06 00 00 00 00 |......(.|........|
|00000520| 28 00 00 00 04 07 00 00 | 00 00 29 00 00 00 04 06 |(.......|..).....|
|00000530| 00 00 00 00 24 00 00 00 | 04 0c 00 00 00 00 44 00 |....$...|......D.|
|00000540| 00 00 04 06 00 00 00 00 | 3c 00 00 00 04 0a 00 00 |........|<.......|
|00000550| 00 00 29 00 00 00 04 09 | 00 00 00 00 29 00 00 00 |..).....|....)...|
|00000560| 04 0a 00 00 00 00 2a 00 | 00 00 04 09 00 00 00 00 |......*.|........|
|00000570| 25 00 00 00 04 0c 00 00 | 00 00 40 00 00 00 04 06 |%.......|..@.....|
|00000580| 00 00 00 00 3d 00 00 00 | 04 04 00 00 00 00 a6 00 |....=...|........|
|00000590| 00 00 04 08 00 00 00 00 | 2d 00 00 00 04 05 00 00 |........|-.......|
|000005a0| 00 00 2b 00 00 00 04 07 | 00 00 00 00 7c 00 00 00 |..+.....|....|...|
|000005b0| 04 0b 00 00 00 00 19 00 | 00 00 03 01 00 00 00 00 |........|........|
|000005c0| 10 00 00 00 03 04 00 00 | 00 00 4c 00 00 00 04 0f |........|..L.....|
|000005d0| 00 00 00 00 29 00 00 00 | 03 01 00 00 00 00 03 00 |....)...|........|
|000005e0| 00 00 03 05 00 00 00 00 | 11 00 00 00 03 04 00 00 |........|........|
|000005f0| 00 00 1f 00 00 00 03 05 | 00 00 00 00 0b 00 00 00 |........|........|
|00000600| 03 05 00 00 00 00 67 00 | 00 00 04 0b 00 00 00 00 |......g.|........|
|00000610| b6 00 00 00 04 05 00 00 | 00 00 2d 00 00 00 03 05 |........|..-.....|
|00000620| 00 00 00 00 15 00 00 00 | 03 03 00 00 00 00 04 00 |........|........|
|00000630| 00 00 03 04 00 00 00 00 | 5a 00 00 00 04 02 00 00 |........|Z.......|
|00000640| 00 00 30 00 00 00 03 0b | 00 00 00 00 bd 00 00 00 |..0.....|........|
|00000650| 04 03 00 00 00 00 65 00 | 00 00 04 05 00 00 00 00 |......e.|........|
|00000660| 70 00 00 00 04 04 00 00 | 00 00 6c 00 00 00 04 06 |p.......|..l.....|
|00000670| 00 00 00 00 e4 00 00 00 | 04 07 00 00 00 00 62 00 |........|......b.|
|00000680| 00 00 04 05 00 00 00 00 | 25 00 00 00 03 04 00 00 |........|%.......|
|00000690| 00 00 0d 00 00 00 04 04 | 00 00 00 00 32 00 00 00 |........|....2...|
|000006a0| 03 04 00 00 00 00 53 00 | 00 00 04 09 00 00 00 00 |......S.|........|
|000006b0| a1 00 00 00 04 0d 00 00 | 00 00 14 00 00 00 03 06 |........|........|
|000006c0| 00 00 00 00 59 00 00 00 | 04 0a 00 00 00 00 75 00 |....Y...|......u.|
|000006d0| 00 00 04 05 00 00 00 00 | 90 00 00 00 04 04 00 00 |........|........|
|000006e0| 00 00 29 00 00 00 03 06 | 00 00 00 00 37 00 00 00 |..).....|....7...|
|000006f0| 03 05 00 00 00 00 44 00 | 00 00 04 06 00 00 00 00 |......D.|........|
|00000700| 9e 00 00 00 04 0a 00 00 | 00 00 67 00 00 00 ff 02 |........|..g.....|
|00000710| 4d 65 74 61 0d 0d 44 45 | 46 49 4e 49 54 49 4f 4e |Meta..DE|FINITION|
|00000720| 20 4d 65 74 61 3b 0d 0d | 09 43 4f 4e 53 54 0d 09 | Meta;..|.CONST..|
|00000730| 09 75 6e 64 65 66 20 3d | 20 30 3b 0d 0d 09 09 74 |.undef =| 0;....t|
|00000740| 79 70 4f 62 6a 20 3d 20 | 32 3b 20 76 61 72 4f 62 |ypObj = |2; varOb|
|00000750| 6a 20 3d 20 33 3b 20 70 | 72 6f 63 4f 62 6a 20 3d |j = 3; p|rocObj =|
|00000760| 20 34 3b 20 66 69 65 6c | 64 4f 62 6a 20 3d 20 35 | 4; fiel|dObj = 5|
|00000770| 3b 20 6d 6f 64 4f 62 6a | 20 3d 20 36 3b 0d 0d 09 |; modObj| = 6;...|
|00000780| 09 62 6f 6f 6c 54 79 70 | 20 3d 20 31 3b 20 63 68 |.boolTyp| = 1; ch|
|00000790| 61 72 54 79 70 20 3d 20 | 32 3b 20 73 69 6e 74 54 |arTyp = |2; sintT|
|000007a0| 79 70 20 3d 20 34 3b 20 | 69 6e 74 54 79 70 20 3d |yp = 4; |intTyp =|
|000007b0| 20 35 3b 20 6c 69 6e 74 | 54 79 70 20 3d 20 36 3b | 5; lint|Typ = 6;|
|000007c0| 20 72 65 61 6c 54 79 70 | 20 3d 20 37 3b 20 6c 72 | realTyp| = 7; lr|
|000007d0| 65 61 6c 54 79 70 20 3d | 20 38 3b 20 73 65 74 54 |ealTyp =| 8; setT|
|000007e0| 79 70 20 3d 20 39 3b 0d | 09 09 72 65 63 54 79 70 |yp = 9;.|..recTyp|
|000007f0| 20 3d 20 31 37 3b 20 61 | 72 72 54 79 70 20 3d 20 | = 17; a|rrTyp = |
|00000800| 31 38 3b 20 70 74 72 54 | 79 70 20 3d 20 31 39 3b |18; ptrT|yp = 19;|
|00000810| 20 70 72 6f 63 54 79 70 | 20 3d 20 32 30 3b 0d 0d | procTyp| = 20;..|
|00000820| 09 09 68 69 64 64 65 6e | 20 3d 20 31 3b 20 72 65 |..hidden| = 1; re|
|00000830| 61 64 4f 6e 6c 79 20 3d | 20 32 3b 20 65 78 70 6f |adOnly =| 2; expo|
|00000840| 72 74 65 64 20 3d 20 34 | 3b 0d 0d 09 54 59 50 45 |rted = 4|;...TYPE|
|00000850| 0d 09 09 4e 61 6d 65 20 | 3d 20 41 52 52 41 59 20 |...Name |= ARRAY |
|00000860| 32 35 36 20 4f 46 20 43 | 48 41 52 3b 0d 0d 09 09 |256 OF C|HAR;....|
|00000870| 49 74 65 6d 20 3d 20 52 | 45 43 4f 52 44 20 28 56 |Item = R|ECORD (V|
|00000880| 61 6c 75 65 29 0d 09 09 | 09 6f 62 6a 2d 2c 20 74 |alue)...|.obj-, t|
|00000890| 79 70 2d 2c 20 76 69 73 | 2d 3a 20 53 48 4f 52 54 |yp-, vis|-: SHORT|
|000008a0| 49 4e 54 3b 0d 09 09 09 | 61 64 72 2d 3a 20 4c 4f |INT;....|adr-: LO|
|000008b0| 4e 47 49 4e 54 3b 0d 09 | 09 09 50 52 4f 43 45 44 |NGINT;..|..PROCED|
|000008c0| 55 52 45 20 28 56 41 52 | 20 69 3a 20 49 74 65 6d |URE (VAR| i: Item|
|000008d0| 29 20 56 61 6c 69 64 20 | 28 29 3a 20 42 4f 4f 4c |) Valid |(): BOOL|
|000008e0| 45 41 4e 3b 0d 09 09 09 | 50 52 4f 43 45 44 55 52 |EAN;....|PROCEDUR|
|000008f0| 45 20 28 56 41 52 20 76 | 61 72 3a 20 49 74 65 6d |E (VAR v|ar: Item|
|00000900| 29 20 42 6f 6f 6c 56 61 | 6c 20 28 29 3a 20 42 4f |) BoolVa|l (): BO|
|00000910| 4f 4c 45 41 4e 3b 0d 09 | 09 09 50 52 4f 43 45 44 |OLEAN;..|..PROCED|
|00000920| 55 52 45 20 28 56 41 52 | 20 76 61 72 3a 20 49 74 |URE (VAR| var: It|
|00000930| 65 6d 29 20 49 6e 74 56 | 61 6c 20 28 29 3a 20 4c |em) IntV|al (): L|
|00000940| 4f 4e 47 49 4e 54 3b 0d | 09 09 09 50 52 4f 43 45 |ONGINT;.|...PROCE|
|00000950| 44 55 52 45 20 28 56 41 | 52 20 76 61 72 3a 20 49 |DURE (VA|R var: I|
|00000960| 74 65 6d 29 20 52 65 61 | 6c 56 61 6c 20 28 29 3a |tem) Rea|lVal ():|
|00000970| 20 4c 4f 4e 47 52 45 41 | 4c 3b 0d 09 09 09 50 52 | LONGREA|L;....PR|
|00000980| 4f 43 45 44 55 52 45 20 | 28 56 41 52 20 76 61 72 |OCEDURE |(VAR var|
|00000990| 3a 20 49 74 65 6d 29 20 | 53 65 74 56 61 6c 20 28 |: Item) |SetVal (|
|000009a0| 29 3a 20 53 45 54 3b 0d | 09 09 09 50 52 4f 43 45 |): SET;.|...PROCE|
|000009b0| 44 55 52 45 20 28 56 41 | 52 20 76 61 72 3a 20 49 |DURE (VA|R var: I|
|000009c0| 74 65 6d 29 20 47 65 74 | 53 74 72 69 6e 67 56 61 |tem) Get|StringVa|
|000009d0| 6c 20 28 56 41 52 20 78 | 3a 20 41 52 52 41 59 20 |l (VAR x|: ARRAY |
|000009e0| 4f 46 20 43 48 41 52 3b | 20 56 41 52 20 6f 6b 3a |OF CHAR;| VAR ok:|
|000009f0| 20 42 4f 4f 4c 45 41 4e | 29 3b 0d 09 09 09 50 52 | BOOLEAN|);....PR|
|00000a00| 4f 43 45 44 55 52 45 20 | 28 56 41 52 20 76 61 72 |OCEDURE |(VAR var|
|00000a10| 3a 20 49 74 65 6d 29 20 | 47 65 74 56 61 6c 20 28 |: Item) |GetVal (|
|00000a20| 56 41 52 20 78 3a 20 56 | 61 6c 75 65 3b 20 56 41 |VAR x: V|alue; VA|
|00000a30| 52 20 6f 6b 3a 20 42 4f | 4f 4c 45 41 4e 29 3b 0d |R ok: BO|OLEAN);.|
|00000a40| 09 09 09 50 52 4f 43 45 | 44 55 52 45 20 28 56 41 |...PROCE|DURE (VA|
|00000a50| 52 20 76 61 72 3a 20 49 | 74 65 6d 29 20 50 75 74 |R var: I|tem) Put|
|00000a60| 42 6f 6f 6c 56 61 6c 20 | 28 78 3a 20 42 4f 4f 4c |BoolVal |(x: BOOL|
|00000a70| 45 41 4e 29 3b 0d 09 09 | 09 50 52 4f 43 45 44 55 |EAN);...|.PROCEDU|
|00000a80| 52 45 20 28 56 41 52 20 | 76 61 72 3a 20 49 74 65 |RE (VAR |var: Ite|
|00000a90| 6d 29 20 50 75 74 49 6e | 74 56 61 6c 20 28 78 3a |m) PutIn|tVal (x:|
|00000aa0| 20 4c 4f 4e 47 49 4e 54 | 29 3b 0d 09 09 09 50 52 | LONGINT|);....PR|
|00000ab0| 4f 43 45 44 55 52 45 20 | 28 56 41 52 20 76 61 72 |OCEDURE |(VAR var|
|00000ac0| 3a 20 49 74 65 6d 29 20 | 50 75 74 52 65 61 6c 56 |: Item) |PutRealV|
|00000ad0| 61 6c 20 28 78 3a 20 4c | 4f 4e 47 52 45 41 4c 29 |al (x: L|ONGREAL)|
|00000ae0| 3b 0d 09 09 09 50 52 4f | 43 45 44 55 52 45 20 28 |;....PRO|CEDURE (|
|00000af0| 56 41 52 20 76 61 72 3a | 20 49 74 65 6d 29 20 50 |VAR var:| Item) P|
|00000b00| 75 74 53 65 74 56 61 6c | 20 28 78 3a 20 53 45 54 |utSetVal| (x: SET|
|00000b10| 29 3b 0d 09 09 09 50 52 | 4f 43 45 44 55 52 45 20 |);....PR|OCEDURE |
|00000b20| 28 56 41 52 20 76 61 72 | 3a 20 49 74 65 6d 29 20 |(VAR var|: Item) |
|00000b30| 50 75 74 53 74 72 69 6e | 67 56 61 6c 20 28 78 3a |PutStrin|gVal (x:|
|00000b40| 20 41 52 52 41 59 20 4f | 46 20 43 48 41 52 3b 20 | ARRAY O|F CHAR; |
|00000b50| 56 41 52 20 6f 6b 3a 20 | 42 4f 4f 4c 45 41 4e 29 |VAR ok: |BOOLEAN)|
|00000b60| 3b 0d 09 09 09 50 52 4f | 43 45 44 55 52 45 20 28 |;....PRO|CEDURE (|
|00000b70| 56 41 52 20 76 61 72 3a | 20 49 74 65 6d 29 20 50 |VAR var:| Item) P|
|00000b80| 75 74 56 61 6c 20 28 56 | 41 52 20 78 3a 20 56 61 |utVal (V|AR x: Va|
|00000b90| 6c 75 65 3b 20 56 41 52 | 20 6f 6b 3a 20 42 4f 4f |lue; VAR| ok: BOO|
|00000ba0| 4c 45 41 4e 29 3b 0d 09 | 09 09 50 52 4f 43 45 44 |LEAN);..|..PROCED|
|00000bb0| 55 52 45 20 28 56 41 52 | 20 70 72 6f 63 3a 20 49 |URE (VAR| proc: I|
|00000bc0| 74 65 6d 29 20 43 61 6c | 6c 20 28 56 41 52 20 6f |tem) Cal|l (VAR o|
|00000bd0| 6b 3a 20 42 4f 4f 4c 45 | 41 4e 29 3b 0d 09 09 09 |k: BOOLE|AN);....|
|00000be0| 50 52 4f 43 45 44 55 52 | 45 20 28 56 41 52 20 74 |PROCEDUR|E (VAR t|
|00000bf0| 79 70 65 3a 20 49 74 65 | 6d 29 20 41 6c 6c 6f 63 |ype: Ite|m) Alloc|
|00000c00| 61 74 65 20 28 56 41 52 | 20 70 74 72 3a 20 56 61 |ate (VAR| ptr: Va|
|00000c10| 6c 75 65 29 3b 0d 09 09 | 09 50 52 4f 43 45 44 55 |lue);...|.PROCEDU|
|00000c20| 52 45 20 28 56 41 52 20 | 76 61 6c 3a 20 49 74 65 |RE (VAR |val: Ite|
|00000c30| 6d 29 20 43 6c 6f 6e 65 | 20 28 56 41 52 20 70 74 |m) Clone| (VAR pt|
|00000c40| 72 3a 20 56 61 6c 75 65 | 29 3b 0d 09 09 09 50 52 |r: Value|);....PR|
|00000c50| 4f 43 45 44 55 52 45 20 | 28 56 41 52 20 69 3a 20 |OCEDURE |(VAR i: |
|00000c60| 49 74 65 6d 29 20 42 61 | 73 65 54 79 70 20 28 29 |Item) Ba|seTyp ()|
|00000c70| 3a 20 53 48 4f 52 54 49 | 4e 54 3b 0d 09 09 09 50 |: SHORTI|NT;....P|
|00000c80| 52 4f 43 45 44 55 52 45 | 20 28 56 41 52 20 69 3a |ROCEDURE| (VAR i:|
|00000c90| 20 49 74 65 6d 29 20 47 | 65 74 42 61 73 65 54 79 | Item) G|etBaseTy|
|00000ca0| 70 65 20 28 56 41 52 20 | 62 61 73 65 3a 20 49 74 |pe (VAR |base: It|
|00000cb0| 65 6d 29 3b 0d 09 09 09 | 50 52 4f 43 45 44 55 52 |em);....|PROCEDUR|
|00000cc0| 45 20 28 56 41 52 20 72 | 65 63 3a 20 49 74 65 6d |E (VAR r|ec: Item|
|00000cd0| 29 20 47 65 74 54 68 69 | 73 42 61 73 65 54 79 70 |) GetThi|sBaseTyp|
|00000ce0| 65 20 28 6c 65 76 65 6c | 3a 20 49 4e 54 45 47 45 |e (level|: INTEGE|
|00000cf0| 52 3b 20 56 41 52 20 62 | 61 73 65 3a 20 49 74 65 |R; VAR b|ase: Ite|
|00000d00| 6d 29 3b 0d 09 09 09 50 | 52 4f 43 45 44 55 52 45 |m);....P|ROCEDURE|
|00000d10| 20 28 56 41 52 20 69 3a | 20 49 74 65 6d 29 20 47 | (VAR i:| Item) G|
|00000d20| 65 74 54 79 70 65 4e 61 | 6d 65 20 28 56 41 52 20 |etTypeNa|me (VAR |
|00000d30| 6d 6f 64 2c 20 74 79 70 | 65 3a 20 4e 61 6d 65 29 |mod, typ|e: Name)|
|00000d40| 3b 0d 09 09 09 50 52 4f | 43 45 44 55 52 45 20 28 |;....PRO|CEDURE (|
|00000d50| 56 41 52 20 61 72 72 3a | 20 49 74 65 6d 29 20 49 |VAR arr:| Item) I|
|00000d60| 6e 64 65 78 20 28 69 6e | 64 65 78 3a 20 4c 4f 4e |ndex (in|dex: LON|
|00000d70| 47 49 4e 54 3b 20 56 41 | 52 20 65 6c 65 6d 3a 20 |GINT; VA|R elem: |
|00000d80| 49 74 65 6d 29 3b 0d 09 | 09 09 50 52 4f 43 45 44 |Item);..|..PROCED|
|00000d90| 55 52 45 20 28 56 41 52 | 20 72 65 63 3a 20 49 74 |URE (VAR| rec: It|
|00000da0| 65 6d 29 20 49 73 20 28 | 56 41 52 20 74 79 70 65 |em) Is (|VAR type|
|00000db0| 3a 20 56 61 6c 75 65 29 | 3a 20 42 4f 4f 4c 45 41 |: Value)|: BOOLEA|
|00000dc0| 4e 3b 0d 09 09 09 50 52 | 4f 43 45 44 55 52 45 20 |N;....PR|OCEDURE |
|00000dd0| 28 56 41 52 20 69 3a 20 | 49 74 65 6d 29 20 4c 65 |(VAR i: |Item) Le|
|00000de0| 6e 20 28 29 3a 20 4c 4f | 4e 47 49 4e 54 3b 0d 09 |n (): LO|NGINT;..|
|00000df0| 09 09 50 52 4f 43 45 44 | 55 52 45 20 28 56 41 52 |..PROCED|URE (VAR|
|00000e00| 20 69 3a 20 49 74 65 6d | 29 20 4c 65 76 65 6c 20 | i: Item|) Level |
|00000e10| 28 29 3a 20 53 48 4f 52 | 54 49 4e 54 3b 0d 09 09 |(): SHOR|TINT;...|
|00000e20| 09 50 52 4f 43 45 44 55 | 52 45 20 28 56 41 52 20 |.PROCEDU|RE (VAR |
|00000e30| 69 3a 20 49 74 65 6d 29 | 20 53 69 7a 65 20 28 29 |i: Item)| Size ()|
|00000e40| 3a 20 4c 4f 4e 47 49 4e | 54 3b 0d 09 09 09 50 52 |: LONGIN|T;....PR|
|00000e50| 4f 43 45 44 55 52 45 20 | 28 56 41 52 20 69 6e 3a |OCEDURE |(VAR in:|
|00000e60| 20 49 74 65 6d 29 20 4c | 6f 6f 6b 75 70 20 28 6e | Item) L|ookup (n|
|00000e70| 61 6d 65 3a 20 4e 61 6d | 65 3b 20 56 41 52 20 69 |ame: Nam|e; VAR i|
|00000e80| 3a 20 49 74 65 6d 29 0d | 09 09 45 4e 44 3b 0d 0d |: Item).|..END;..|
|00000e90| 09 09 53 63 61 6e 6e 65 | 72 20 3d 20 52 45 43 4f |..Scanne|r = RECO|
|00000ea0| 52 44 20 0d 09 09 09 74 | 68 69 73 2d 3a 20 49 74 |RD ....t|his-: It|
|00000eb0| 65 6d 3b 0d 09 09 09 65 | 6f 73 2d 3a 20 42 4f 4f |em;....e|os-: BOO|
|00000ec0| 4c 45 41 4e 3b 0d 09 09 | 09 50 52 4f 43 45 44 55 |LEAN;...|.PROCEDU|
|00000ed0| 52 45 20 28 56 41 52 20 | 73 3a 20 53 63 61 6e 6e |RE (VAR |s: Scann|
|00000ee0| 65 72 29 20 43 6f 6e 6e | 65 63 74 54 6f 20 28 56 |er) Conn|ectTo (V|
|00000ef0| 41 52 20 6f 62 6a 3a 20 | 49 74 65 6d 29 3b 0d 09 |AR obj: |Item);..|
|00000f00| 09 09 50 52 4f 43 45 44 | 55 52 45 20 28 56 41 52 |..PROCED|URE (VAR|
|00000f10| 20 73 3a 20 53 63 61 6e | 6e 65 72 29 20 43 6f 6e | s: Scan|ner) Con|
|00000f20| 6e 65 63 74 54 6f 4d 6f | 64 73 3b 0d 09 09 09 50 |nectToMo|ds;....P|
|00000f30| 52 4f 43 45 44 55 52 45 | 20 28 56 41 52 20 73 3a |ROCEDURE| (VAR s:|
|00000f40| 20 53 63 61 6e 6e 65 72 | 29 20 47 65 74 4f 62 6a | Scanner|) GetObj|
|00000f50| 4e 61 6d 65 20 28 56 41 | 52 20 6e 61 6d 65 3a 20 |Name (VA|R name: |
|00000f60| 4e 61 6d 65 29 3b 0d 09 | 09 09 50 52 4f 43 45 44 |Name);..|..PROCED|
|00000f70| 55 52 45 20 28 56 41 52 | 20 73 3a 20 53 63 61 6e |URE (VAR| s: Scan|
|00000f80| 6e 65 72 29 20 4c 65 76 | 65 6c 20 28 29 3a 20 53 |ner) Lev|el (): S|
|00000f90| 48 4f 52 54 49 4e 54 3b | 0d 09 09 09 50 52 4f 43 |HORTINT;|....PROC|
|00000fa0| 45 44 55 52 45 20 28 56 | 41 52 20 73 3a 20 53 63 |EDURE (V|AR s: Sc|
|00000fb0| 61 6e 6e 65 72 29 20 53 | 63 61 6e 0d 09 09 45 4e |anner) S|can...EN|
|00000fc0| 44 3b 0d 0d 09 09 56 61 | 6c 75 65 20 3d 20 52 45 |D;....Va|lue = RE|
|00000fd0| 43 4f 52 44 20 0d 09 09 | 09 50 52 4f 43 45 44 55 |CORD ...|.PROCEDU|
|00000fe0| 52 45 20 28 56 41 52 20 | 70 74 72 3a 20 56 61 6c |RE (VAR |ptr: Val|
|00000ff0| 75 65 29 20 44 65 72 65 | 66 20 28 56 41 52 20 72 |ue) Dere|f (VAR r|
|00001000| 65 66 3a 20 49 74 65 6d | 29 0d 09 09 45 4e 44 3b |ef: Item|)...END;|
|00001010| 0d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 20 4c 6f |...PROCE|DURE  Lo|
|00001020| 6f 6b 75 70 20 28 6e 61 | 6d 65 3a 20 4e 61 6d 65 |okup (na|me: Name|
|00001030| 3b 20 56 41 52 20 6d 6f | 64 3a 20 49 74 65 6d 29 |; VAR mo|d: Item)|
|00001040| 3b 0d 09 50 52 4f 43 45 | 44 55 52 45 20 20 4c 6f |;..PROCE|DURE  Lo|
|00001050| 6f 6b 75 70 50 61 74 68 | 20 28 70 61 74 68 3a 20 |okupPath| (path: |
|00001060| 41 52 52 41 59 20 4f 46 | 20 43 48 41 52 3b 20 56 |ARRAY OF| CHAR; V|
|00001070| 41 52 20 69 3a 20 49 74 | 65 6d 29 3b 0d 0d 45 4e |AR i: It|em);..EN|
|00001080| 44 20 4d 65 74 61 2e 0d | 0d 0d 4d 65 74 61 20 70 |D Meta..|..Meta p|
|00001090| 72 6f 76 69 64 65 73 20 | 61 63 63 65 73 73 20 74 |rovides |access t|
|000010a0| 6f 20 4f 62 65 72 6f 6e | 20 72 75 6e 2d 74 69 6d |o Oberon| run-tim|
|000010b0| 65 20 74 79 70 65 20 69 | 6e 66 6f 72 6d 61 74 69 |e type i|nformati|
|000010c0| 6f 6e 2e 20 4d 65 74 61 | 20 69 73 20 72 65 73 74 |on. Meta| is rest|
|000010d0| 72 69 63 74 65 64 20 74 | 6f 20 70 75 62 6c 69 63 |ricted t|o public|
|000010e0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 2c 20 69 2e | informa|tion, i.|
|000010f0| 65 2e 20 69 74 20 64 6f | 65 73 6e 27 74 20 61 6c |e. it do|esn't al|
|00001100| 6c 6f 77 20 61 63 63 65 | 73 73 20 74 6f 20 6e 6f |low acce|ss to no|
|00001110| 6e 2d 65 78 70 6f 72 74 | 65 64 20 69 74 65 6d 73 |n-export|ed items|
|00001120| 20 6f 66 20 61 20 6d 6f | 64 75 6c 65 2e 20 4d 65 | of a mo|dule. Me|
|00001130| 74 61 20 69 73 20 73 61 | 66 65 2c 20 69 74 20 64 |ta is sa|fe, it d|
|00001140| 6f 65 73 6e 27 74 20 61 | 6c 6c 6f 77 20 74 6f 20 |oesn't a|llow to |
|00001150| 63 68 61 6e 67 65 20 64 | 61 74 61 20 77 68 69 63 |change d|ata whic|
|00001160| 68 20 69 73 20 6e 6f 74 | 20 65 78 70 6f 72 74 65 |h is not| exporte|
|00001170| 64 20 61 73 20 6d 6f 64 | 69 66 69 61 62 6c 65 2e |d as mod|ifiable.|
|00001180| 20 47 65 6e 65 72 61 6c | 6c 79 2c 20 4d 65 74 61 | General|ly, Meta|
|00001190| 20 6f 6e 6c 79 20 61 6c | 6c 6f 77 73 20 74 6f 20 | only al|lows to |
|000011a0| 64 6f 20 77 69 74 68 20 | 61 20 6d 6f 64 75 6c 65 |do with |a module|
|000011b0| 20 77 68 61 74 20 63 6f | 75 6c 64 20 62 65 20 64 | what co|uld be d|
|000011c0| 6f 6e 65 20 62 79 20 61 | 20 6e 6f 72 6d 61 6c 20 |one by a| normal |
|000011d0| 63 6c 69 65 6e 74 20 6d | 6f 64 75 6c 65 20 61 6c |client m|odule al|
|000011e0| 73 6f 2e 20 54 68 65 20 | 64 69 66 66 65 72 65 6e |so. The |differen|
|000011f0| 63 65 20 69 73 20 74 68 | 61 74 20 4d 65 74 61 20 |ce is th|at Meta |
|00001200| 69 73 20 6d 6f 72 65 20 | 64 79 6e 61 6d 69 63 3b |is more |dynamic;|
|00001210| 20 69 74 20 61 6c 6c 6f | 77 73 20 69 6e 73 70 65 | it allo|ws inspe|
|00001220| 63 74 69 6f 6e 20 61 6e | 64 20 6d 6f 64 69 66 69 |ction an|d modifi|
|00001230| 63 61 74 69 6f 6e 20 6f | 66 20 64 61 74 61 20 64 |cation o|f data d|
|00001240| 65 70 65 6e 64 69 6e 67 | 20 6f 6e 20 72 75 6e 2d |epending| on run-|
|00001250| 74 69 6d 65 20 64 65 63 | 69 73 69 6f 6e 73 2c 20 |time dec|isions, |
|00001260| 77 69 74 68 6f 75 74 20 | 73 74 61 74 69 63 20 69 |without |static i|
|00001270| 6d 70 6f 72 74 20 6f 66 | 20 74 68 65 20 69 6e 73 |mport of| the ins|
|00001280| 70 65 63 74 65 64 20 6f | 72 20 6d 6f 64 69 66 69 |pected o|r modifi|
|00001290| 65 64 20 6d 6f 64 75 6c | 65 2e 0d 0d 0d 43 4f 4e |ed modul|e....CON|
|000012a0| 53 54 20 75 6e 64 65 66 | 0d 50 6f 73 73 69 62 6c |ST undef|.Possibl|
|000012b0| 65 20 72 65 73 75 6c 74 | 20 63 6f 64 65 20 66 6f |e result| code fo|
|000012c0| 72 20 6f 62 6a 65 63 74 | 20 63 6c 61 73 73 65 73 |r object| classes|
|000012d0| 2c 20 74 79 70 65 20 63 | 6c 61 73 73 65 73 2c 20 |, type c|lasses, |
|000012e0| 76 69 73 69 62 69 6c 69 | 74 79 20 63 6c 61 73 73 |visibili|ty class|
|000012f0| 65 73 2e 0d 0d 43 4f 4e | 53 54 20 74 79 70 4f 62 |es...CON|ST typOb|
|00001300| 6a 2c 20 76 61 72 4f 62 | 6a 2c 20 70 72 6f 63 4f |j, varOb|j, procO|
|00001310| 62 6a 2c 20 66 69 65 6c | 64 4f 62 6a 2c 20 6d 6f |bj, fiel|dObj, mo|
|00001320| 64 4f 62 6a 0d 4f 62 6a | 65 63 74 20 63 6c 61 73 |dObj.Obj|ect clas|
|00001330| 73 65 73 2e 0d 0d 43 4f | 4e 53 54 20 62 6f 6f 6c |ses...CO|NST bool|
|00001340| 54 79 70 2c 20 63 68 61 | 72 54 79 70 2c 20 73 69 |Typ, cha|rTyp, si|
|00001350| 6e 74 54 79 70 2c 20 69 | 6e 74 54 79 70 2c 20 6c |ntTyp, i|ntTyp, l|
|00001360| 69 6e 74 54 79 70 2c 20 | 72 65 61 6c 54 79 70 2c |intTyp, |realTyp,|
|00001370| 20 6c 72 65 61 6c 54 79 | 70 2c 20 73 65 74 54 79 | lrealTy|p, setTy|
|00001380| 70 2c 0d 09 09 09 09 72 | 65 63 54 79 70 2c 20 61 |p,.....r|ecTyp, a|
|00001390| 72 72 54 79 70 2c 20 70 | 74 72 54 79 70 2c 20 70 |rrTyp, p|trTyp, p|
|000013a0| 72 6f 63 54 79 70 0d 54 | 79 70 65 20 63 6c 61 73 |rocTyp.T|ype clas|
|000013b0| 73 65 73 2e 0d 0d 43 4f | 4e 53 54 20 68 69 64 64 |ses...CO|NST hidd|
|000013c0| 65 6e 2c 20 72 65 61 64 | 4f 6e 6c 79 2c 20 65 78 |en, read|Only, ex|
|000013d0| 70 6f 72 74 65 64 0d 56 | 69 73 69 62 69 6c 69 74 |ported.V|isibilit|
|000013e0| 79 20 63 6c 61 73 73 65 | 73 2e 0d 0d 0d 54 59 50 |y classe|s....TYP|
|000013f0| 45 20 4e 61 6d 65 0d 53 | 74 72 69 6e 67 20 74 79 |E Name.S|tring ty|
|00001400| 70 65 20 66 6f 72 20 6d | 65 74 61 20 69 74 65 6d |pe for m|eta item|
|00001410| 20 6e 61 6d 65 73 2e 0d | 0d 0d 54 59 50 45 20 56 | names..|..TYPE V|
|00001420| 61 6c 75 65 0d 49 6e 74 | 65 72 66 61 63 65 0d 41 |alue.Int|erface.A|
|00001430| 20 76 61 6c 75 65 20 6d | 61 79 20 62 65 20 65 78 | value m|ay be ex|
|00001440| 74 65 6e 64 65 64 20 65 | 78 61 63 74 6c 79 20 6f |tended e|xactly o|
|00001450| 6e 63 65 2c 20 77 69 74 | 68 20 61 20 73 69 6e 67 |nce, wit|h a sing|
|00001460| 6c 65 20 66 69 65 6c 64 | 2e 0d 0d 50 52 4f 43 45 |le field|...PROCE|
|00001470| 44 55 52 45 20 28 56 41 | 52 20 70 74 72 3a 20 56 |DURE (VA|R ptr: V|
|00001480| 61 6c 75 65 29 20 44 65 | 72 65 66 20 28 56 41 52 |alue) De|ref (VAR|
|00001490| 20 72 65 66 3a 20 49 74 | 65 6d 29 0d 44 65 72 65 | ref: It|em).Dere|
|000014a0| 66 65 72 65 6e 63 65 20 | 70 6f 69 6e 74 65 72 20 |ference |pointer |
|000014b0| 70 74 72 20 61 6e 64 20 | 61 73 73 69 67 6e 20 74 |ptr and |assign t|
|000014c0| 68 65 20 72 65 73 75 6c | 74 20 74 6f 20 72 65 66 |he resul|t to ref|
|000014d0| 2e 0d 0d 50 72 65 0d 70 | 74 72 2e 74 79 70 20 3d |...Pre.p|tr.typ =|
|000014e0| 20 70 74 72 54 79 70 09 | 32 31 0d 72 65 66 20 6d | ptrTyp.|21.ref m|
|000014f0| 75 73 74 20 62 65 20 61 | 20 6c 65 76 65 6c 20 31 |ust be a| level 1|
|00001500| 20 72 65 63 6f 72 64 09 | 32 35 0d 72 65 66 20 6d | record.|25.ref m|
|00001510| 75 73 74 20 68 61 76 65 | 20 65 78 61 63 74 6c 79 |ust have| exactly|
|00001520| 20 6f 6e 65 20 66 69 65 | 6c 64 09 32 36 0d 0d 0d | one fie|ld.26...|
|00001530| 0d 54 59 50 45 20 49 74 | 65 6d 0d 45 78 74 65 6e |.TYPE It|em.Exten|
|00001540| 73 69 6f 6e 0d 0d 6f 62 | 6a 2d 3a 20 53 48 4f 52 |sion..ob|j-: SHOR|
|00001550| 54 49 4e 54 09 6f 62 6a | 20 49 4e 20 7b 74 79 70 |TINT.obj| IN {typ|
|00001560| 4f 62 6a 2e 2e 6d 6f 64 | 4f 62 6a 7d 0d 0d 74 79 |Obj..mod|Obj}..ty|
|00001570| 70 2d 3a 20 53 48 4f 52 | 54 49 4e 54 09 6f 62 6a |p-: SHOR|TINT.obj|
|00001580| 20 49 4e 20 7b 62 6f 6f | 6c 54 79 70 2e 2e 70 72 | IN {boo|lTyp..pr|
|00001590| 6f 63 54 79 70 7d 0d 0d | 76 69 73 2d 3a 20 53 48 |ocTyp}..|vis-: SH|
|000015a0| 4f 52 54 49 4e 54 09 76 | 69 73 20 49 4e 20 7b 68 |ORTINT.v|is IN {h|
|000015b0| 69 64 64 65 6e 2e 2e 65 | 78 70 6f 72 74 65 64 7d |idden..e|xported}|
|000015c0| 0d 0d 61 64 72 2d 3a 20 | 4c 4f 4e 47 49 4e 54 0d |..adr-: |LONGINT.|
|000015d0| 0d 50 52 4f 43 45 44 55 | 52 45 20 28 56 41 52 20 |.PROCEDU|RE (VAR |
|000015e0| 69 3a 20 49 74 65 6d 29 | 20 56 61 6c 69 64 20 28 |i: Item)| Valid (|
|000015f0| 29 3a 20 42 4f 4f 4c 45 | 41 4e 0d 44 65 74 65 72 |): BOOLE|AN.Deter|
|00001600| 6d 69 6e 65 73 20 77 68 | 65 74 68 65 72 20 74 68 |mines wh|ether th|
|00001610| 65 20 69 74 65 6d 20 69 | 73 20 76 61 6c 69 64 2c |e item i|s valid,|
|00001620| 20 69 2e 65 2e 20 69 6e | 69 74 69 61 6c 69 7a 65 | i.e. in|itialize|
|00001630| 64 2c 20 73 65 74 20 74 | 6f 20 61 20 64 65 66 69 |d, set t|o a defi|
|00001640| 6e 65 64 20 74 79 70 65 | 2c 20 61 6e 64 20 69 74 |ned type|, and it|
|00001650| 73 20 6d 6f 64 75 6c 65 | 20 69 73 20 73 74 69 6c |s module| is stil|
|00001660| 6c 20 6c 6f 61 64 65 64 | 2e 0d 0d 50 52 4f 43 45 |l loaded|...PROCE|
|00001670| 44 55 52 45 20 28 56 41 | 52 20 76 61 72 3a 20 49 |DURE (VA|R var: I|
|00001680| 74 65 6d 29 20 42 6f 6f | 6c 56 61 6c 20 28 29 3a |tem) Boo|lVal ():|
|00001690| 20 42 4f 4f 4c 45 41 4e | 0d 0d 50 52 4f 43 45 44 | BOOLEAN|..PROCED|
|000016a0| 55 52 45 20 28 56 41 52 | 20 76 61 72 3a 20 49 74 |URE (VAR| var: It|
|000016b0| 65 6d 29 20 49 6e 74 56 | 61 6c 20 28 29 3a 20 4c |em) IntV|al (): L|
|000016c0| 4f 4e 47 49 4e 54 0d 0d | 50 52 4f 43 45 44 55 52 |ONGINT..|PROCEDUR|
|000016d0| 45 20 28 56 41 52 20 76 | 61 72 3a 20 49 74 65 6d |E (VAR v|ar: Item|
|000016e0| 29 20 52 65 61 6c 56 61 | 6c 20 28 29 3a 20 4c 4f |) RealVa|l (): LO|
|000016f0| 4e 47 52 45 41 4c 0d 0d | 50 52 4f 43 45 44 55 52 |NGREAL..|PROCEDUR|
|00001700| 45 20 28 56 41 52 20 76 | 61 72 3a 20 49 74 65 6d |E (VAR v|ar: Item|
|00001710| 29 20 53 65 74 56 61 6c | 20 28 29 3a 20 53 45 54 |) SetVal| (): SET|
|00001720| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 28 56 41 52 |..PROCED|URE (VAR|
|00001730| 20 76 61 72 3a 20 49 74 | 65 6d 29 20 47 65 74 53 | var: It|em) GetS|
|00001740| 74 72 69 6e 67 56 61 6c | 20 28 56 41 52 20 78 3a |tringVal| (VAR x:|
|00001750| 20 41 52 52 41 59 20 4f | 46 20 43 48 41 52 3b 20 | ARRAY O|F CHAR; |
|00001760| 56 41 52 20 6f 6b 3a 20 | 42 4f 4f 4c 45 41 4e 29 |VAR ok: |BOOLEAN)|
|00001770| 0d 0d 50 52 4f 43 45 44 | 55 52 45 20 28 56 41 52 |..PROCED|URE (VAR|
|00001780| 20 76 61 72 3a 20 49 74 | 65 6d 29 20 47 65 74 56 | var: It|em) GetV|
|00001790| 61 6c 20 28 56 41 52 20 | 78 3a 20 56 61 6c 75 65 |al (VAR |x: Value|
|000017a0| 3b 20 56 41 52 20 6f 6b | 3a 20 42 4f 4f 4c 45 41 |; VAR ok|: BOOLEA|
|000017b0| 4e 29 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 28 56 |N)..PROC|EDURE (V|
|000017c0| 41 52 20 76 61 72 3a 20 | 49 74 65 6d 29 20 50 75 |AR var: |Item) Pu|
|000017d0| 74 42 6f 6f 6c 56 61 6c | 20 28 78 3a 20 42 4f 4f |tBoolVal| (x: BOO|
|000017e0| 4c 45 41 4e 29 0d 0d 50 | 52 4f 43 45 44 55 52 45 |LEAN)..P|ROCEDURE|
|000017f0| 20 28 56 41 52 20 76 61 | 72 3a 20 49 74 65 6d 29 | (VAR va|r: Item)|
|00001800| 20 50 75 74 49 6e 74 56 | 61 6c 20 28 78 3a 20 4c | PutIntV|al (x: L|
|00001810| 4f 4e 47 49 4e 54 29 0d | 0d 50 52 4f 43 45 44 55 |ONGINT).|.PROCEDU|
|00001820| 52 45 20 28 56 41 52 20 | 76 61 72 3a 20 49 74 65 |RE (VAR |var: Ite|
|00001830| 6d 29 20 50 75 74 52 65 | 61 6c 56 61 6c 20 28 78 |m) PutRe|alVal (x|
|00001840| 3a 20 4c 4f 4e 47 52 45 | 41 4c 29 0d 0d 50 52 4f |: LONGRE|AL)..PRO|
|00001850| 43 45 44 55 52 45 20 28 | 56 41 52 20 76 61 72 3a |CEDURE (|VAR var:|
|00001860| 20 49 74 65 6d 29 20 50 | 75 74 53 65 74 56 61 6c | Item) P|utSetVal|
|00001870| 20 28 78 3a 20 53 45 54 | 29 0d 0d 50 52 4f 43 45 | (x: SET|)..PROCE|
|00001880| 44 55 52 45 20 28 56 41 | 52 20 76 61 72 3a 20 49 |DURE (VA|R var: I|
|00001890| 74 65 6d 29 20 50 75 74 | 53 74 72 69 6e 67 56 61 |tem) Put|StringVa|
|000018a0| 6c 20 28 78 3a 20 41 52 | 52 41 59 20 4f 46 20 43 |l (x: AR|RAY OF C|
|000018b0| 48 41 52 3b 20 56 41 52 | 20 6f 6b 3a 20 42 4f 4f |HAR; VAR| ok: BOO|
|000018c0| 4c 45 41 4e 29 0d 0d 50 | 52 4f 43 45 44 55 52 45 |LEAN)..P|ROCEDURE|
|000018d0| 20 28 56 41 52 20 76 61 | 72 3a 20 49 74 65 6d 29 | (VAR va|r: Item)|
|000018e0| 20 50 75 74 56 61 6c 20 | 28 56 41 52 20 78 3a 20 | PutVal |(VAR x: |
|000018f0| 56 61 6c 75 65 3b 20 56 | 41 52 20 6f 6b 3a 20 42 |Value; V|AR ok: B|
|00001900| 4f 4f 4c 45 41 4e 29 0d | 0d 50 52 4f 43 45 44 55 |OOLEAN).|.PROCEDU|
|00001910| 52 45 20 28 56 41 52 20 | 70 72 6f 63 3a 20 49 74 |RE (VAR |proc: It|
|00001920| 65 6d 29 20 43 61 6c 6c | 20 28 56 41 52 20 6f 6b |em) Call| (VAR ok|
|00001930| 3a 20 42 4f 4f 4c 45 41 | 4e 29 0d 43 61 6c 6c 20 |: BOOLEA|N).Call |
|00001940| 61 20 70 61 72 61 6d 65 | 74 65 72 6c 65 73 73 20 |a parame|terless |
|00001950| 70 72 6f 63 65 64 75 72 | 65 2e 0d 0d 50 72 65 0d |procedur|e...Pre.|
|00001960| 70 72 6f 63 2e 56 61 6c | 69 64 28 29 09 32 30 0d |proc.Val|id().20.|
|00001970| 70 72 6f 63 2e 6f 62 6a | 20 3d 20 70 72 6f 63 4f |proc.obj| = procO|
|00001980| 62 6a 20 20 4f 52 20 20 | 70 72 6f 63 2e 6f 62 6a |bj  OR  |proc.obj|
|00001990| 20 3d 20 76 61 72 4f 62 | 6a 20 26 20 70 72 6f 63 | = varOb|j & proc|
|000019a0| 2e 74 79 70 20 3d 20 70 | 72 6f 63 54 79 70 09 32 |.typ = p|rocTyp.2|
|000019b0| 31 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 28 56 41 |1..PROCE|DURE (VA|
|000019c0| 52 20 74 79 70 65 3a 20 | 49 74 65 6d 29 20 41 6c |R type: |Item) Al|
|000019d0| 6c 6f 63 61 74 65 20 28 | 56 41 52 20 70 74 72 3a |locate (|VAR ptr:|
|000019e0| 20 56 61 6c 75 65 29 0d | 0d 50 52 4f 43 45 44 55 | Value).|.PROCEDU|
|000019f0| 52 45 20 28 56 41 52 20 | 76 61 6c 3a 20 49 74 65 |RE (VAR |val: Ite|
|00001a00| 6d 29 20 43 6c 6f 6e 65 | 20 28 56 41 52 20 70 74 |m) Clone| (VAR pt|
|00001a10| 72 3a 20 56 61 6c 75 65 | 29 0d 0d 50 52 4f 43 45 |r: Value|)..PROCE|
|00001a20| 44 55 52 45 20 28 56 41 | 52 20 69 3a 20 49 74 65 |DURE (VA|R i: Ite|
|00001a30| 6d 29 20 42 61 73 65 54 | 79 70 20 28 29 3a 20 53 |m) BaseT|yp (): S|
|00001a40| 48 4f 52 54 49 4e 54 0d | 52 65 74 75 72 6e 73 20 |HORTINT.|Returns |
|00001a50| 74 68 65 20 69 74 65 6d | 27 73 20 62 61 73 65 20 |the item|'s base |
|00001a60| 74 79 70 65 2e 0d 0d 50 | 72 65 0d 69 2e 56 61 6c |type...P|re.i.Val|
|00001a70| 69 64 28 29 09 32 30 0d | 69 2e 74 79 70 20 49 4e |id().20.|i.typ IN|
|00001a80| 20 7b 61 72 72 54 79 70 | 2c 20 72 65 63 54 79 70 | {arrTyp|, recTyp|
|00001a90| 2c 20 70 74 72 54 79 70 | 7d 09 32 31 0d 0d 50 52 |, ptrTyp|}.21..PR|
|00001aa0| 4f 43 45 44 55 52 45 20 | 28 56 41 52 20 69 3a 20 |OCEDURE |(VAR i: |
|00001ab0| 49 74 65 6d 29 20 47 65 | 74 42 61 73 65 54 79 70 |Item) Ge|tBaseTyp|
|00001ac0| 65 20 28 56 41 52 20 62 | 61 73 65 3a 20 49 74 65 |e (VAR b|ase: Ite|
|00001ad0| 6d 29 0d 41 73 73 69 67 | 6e 20 69 27 73 20 62 61 |m).Assig|n i's ba|
|00001ae0| 73 65 20 74 79 70 65 20 | 74 6f 20 62 61 73 65 2e |se type |to base.|
|00001af0| 0d 0d 50 72 65 0d 69 2e | 56 61 6c 69 64 28 29 09 |..Pre.i.|Valid().|
|00001b00| 32 30 0d 69 2e 74 79 70 | 20 49 4e 20 7b 72 65 63 |20.i.typ| IN {rec|
|00001b10| 54 79 70 2c 20 61 72 72 | 54 79 70 7d 09 32 31 0d |Typ, arr|Typ}.21.|
|00001b20| 0d 50 52 4f 43 45 44 55 | 52 45 20 28 56 41 52 20 |.PROCEDU|RE (VAR |
|00001b30| 72 65 63 3a 20 49 74 65 | 6d 29 20 47 65 74 54 68 |rec: Ite|m) GetTh|
|00001b40| 69 73 42 61 73 65 54 79 | 70 65 20 28 6c 65 76 65 |isBaseTy|pe (leve|
|00001b50| 6c 3a 20 49 4e 54 45 47 | 45 52 3b 20 56 41 52 20 |l: INTEG|ER; VAR |
|00001b60| 62 61 73 65 3a 20 49 74 | 65 6d 29 0d 41 73 73 69 |base: It|em).Assi|
|00001b70| 67 6e 20 69 27 73 20 6c | 65 76 65 6c 2d 74 68 20 |gn i's l|evel-th |
|00001b80| 62 61 73 65 20 74 79 70 | 65 20 74 6f 20 62 61 73 |base typ|e to bas|
|00001b90| 65 2e 20 49 66 20 74 68 | 65 20 6c 65 76 65 6c 20 |e. If th|e level |
|00001ba0| 64 6f 65 73 20 6e 6f 74 | 20 65 78 69 73 74 2c 20 |does not| exist, |
|00001bb0| 69 2e 6f 62 6a 20 69 73 | 20 73 65 74 20 74 6f 20 |i.obj is| set to |
|00001bc0| 75 6e 64 65 66 2e 0d 0d | 50 72 65 0d 69 2e 56 61 |undef...|Pre.i.Va|
|00001bd0| 6c 69 64 28 29 09 32 30 | 0d 69 2e 74 79 70 20 49 |lid().20|.i.typ I|
|00001be0| 4e 20 7b 72 65 63 54 79 | 70 2c 20 61 72 72 54 79 |N {recTy|p, arrTy|
|00001bf0| 70 7d 09 32 31 0d 6c 65 | 76 65 6c 20 3e 3d 20 30 |p}.21.le|vel >= 0|
|00001c00| 20 20 26 20 20 6c 65 76 | 65 6c 20 3c 20 31 36 09 |  &  lev|el < 16.|
|00001c10| 32 38 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 28 56 |28..PROC|EDURE (V|
|00001c20| 41 52 20 69 3a 20 49 74 | 65 6d 29 20 47 65 74 54 |AR i: It|em) GetT|
|00001c30| 79 70 65 4e 61 6d 65 20 | 28 56 41 52 20 6d 6f 64 |ypeName |(VAR mod|
|00001c40| 2c 20 74 79 70 65 3a 20 | 4e 61 6d 65 29 0d 47 65 |, type: |Name).Ge|
|00001c50| 74 20 74 68 65 20 69 74 | 65 6d 27 73 20 74 79 70 |t the it|em's typ|
|00001c60| 65 20 6e 61 6d 65 20 61 | 6e 64 20 74 68 65 20 6e |e name a|nd the n|
|00001c70| 61 6d 65 20 6f 66 20 74 | 68 69 73 20 74 79 70 65 |ame of t|his type|
|00001c80| 27 73 20 6d 6f 64 75 6c | 65 2e 0d 0d 50 72 65 0d |'s modul|e...Pre.|
|00001c90| 69 2e 56 61 6c 69 64 28 | 29 09 32 30 0d 69 2e 74 |i.Valid(|).20.i.t|
|00001ca0| 79 70 20 3e 3d 20 72 65 | 63 54 79 70 09 32 31 0d |yp >= re|cTyp.21.|
|00001cb0| 6d 6f 64 75 6c 65 20 6f | 66 20 74 79 70 65 20 69 |module o|f type i|
|00001cc0| 73 20 73 74 69 6c 6c 20 | 6c 6f 61 64 65 64 09 32 |s still |loaded.2|
|00001cd0| 34 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 28 56 41 |4..PROCE|DURE (VA|
|00001ce0| 52 20 61 72 72 3a 20 49 | 74 65 6d 29 20 49 6e 64 |R arr: I|tem) Ind|
|00001cf0| 65 78 20 28 69 6e 64 65 | 78 3a 20 4c 4f 4e 47 49 |ex (inde|x: LONGI|
|00001d00| 4e 54 3b 20 56 41 52 20 | 65 6c 65 6d 3a 20 49 74 |NT; VAR |elem: It|
|00001d10| 65 6d 29 0d 41 73 73 69 | 67 6e 20 74 68 65 20 69 |em).Assi|gn the i|
|00001d20| 6e 64 65 78 2d 74 68 20 | 65 6c 65 6d 65 6e 74 20 |ndex-th |element |
|00001d30| 6f 66 20 61 72 72 61 79 | 20 61 72 72 20 74 6f 20 |of array| arr to |
|00001d40| 65 6c 65 6d 2e 0d 0d 50 | 72 65 0d 61 72 72 2e 56 |elem...P|re.arr.V|
|00001d50| 61 6c 69 64 28 29 09 32 | 30 0d 61 72 72 2e 74 79 |alid().2|0.arr.ty|
|00001d60| 70 20 3d 20 61 72 72 54 | 79 70 09 32 31 0d 61 72 |p = arrT|yp.21.ar|
|00001d70| 72 2e 6f 62 6a 20 3d 20 | 76 61 72 4f 62 6a 09 32 |r.obj = |varObj.2|
|00001d80| 32 0d 0d 0d 50 52 4f 43 | 45 44 55 52 45 20 28 56 |2...PROC|EDURE (V|
|00001d90| 41 52 20 72 65 63 3a 20 | 49 74 65 6d 29 20 49 73 |AR rec: |Item) Is|
|00001da0| 20 28 56 41 52 20 74 79 | 70 65 3a 20 56 61 6c 75 | (VAR ty|pe: Valu|
|00001db0| 65 29 3a 20 42 4f 4f 4c | 45 41 4e 0d 50 65 72 66 |e): BOOL|EAN.Perf|
|00001dc0| 6f 72 6d 20 61 20 74 79 | 70 65 20 74 65 73 74 20 |orm a ty|pe test |
|00001dd0| 72 65 63 20 49 53 20 74 | 79 70 65 2e 0d 0d 50 72 |rec IS t|ype...Pr|
|00001de0| 65 0d 72 65 63 2e 56 61 | 6c 69 64 28 29 09 32 30 |e.rec.Va|lid().20|
|00001df0| 0d 72 65 63 2e 74 79 70 | 20 3d 20 72 65 63 54 79 |.rec.typ| = recTy|
|00001e00| 70 09 32 31 0d 74 79 70 | 65 20 49 53 20 49 74 65 |p.21.typ|e IS Ite|
|00001e10| 6d 0d 09 74 79 70 65 2e | 56 61 6c 69 64 28 29 09 |m..type.|Valid().|
|00001e20| 32 30 0d 09 74 79 70 65 | 2e 74 79 70 20 3d 20 72 |20..type|.typ = r|
|00001e30| 65 63 54 79 70 09 32 31 | 0d 7e 28 74 79 70 65 20 |ecTyp.21|.~(type |
|00001e40| 49 53 20 49 74 65 6d 29 | 0d 09 74 79 70 65 2e 4c |IS Item)|..type.L|
|00001e50| 65 76 65 6c 28 29 20 3d | 20 31 09 32 35 0d 09 6e |evel() =| 1.25..n|
|00001e60| 75 6d 62 65 72 20 6f 66 | 20 66 69 65 6c 64 73 20 |umber of| fields |
|00001e70| 6f 66 20 74 79 70 65 20 | 3d 20 31 09 32 36 0d 0d |of type |= 1.26..|
|00001e80| 50 52 4f 43 45 44 55 52 | 45 20 28 56 41 52 20 69 |PROCEDUR|E (VAR i|
|00001e90| 3a 20 49 74 65 6d 29 20 | 4c 65 6e 20 28 29 3a 20 |: Item) |Len (): |
|00001ea0| 4c 4f 4e 47 49 4e 54 0d | 52 65 74 75 72 6e 73 20 |LONGINT.|Returns |
|00001eb0| 74 68 65 20 69 74 65 6d | 27 73 20 6c 65 6e 67 74 |the item|'s lengt|
|00001ec0| 68 2e 0d 0d 50 72 65 0d | 69 2e 56 61 6c 69 64 28 |h...Pre.|i.Valid(|
|00001ed0| 29 09 32 30 0d 69 2e 74 | 79 70 20 3d 20 61 72 72 |).20.i.t|yp = arr|
|00001ee0| 54 79 70 09 32 31 0d 0d | 50 52 4f 43 45 44 55 52 |Typ.21..|PROCEDUR|
|00001ef0| 45 20 28 56 41 52 20 69 | 3a 20 49 74 65 6d 29 20 |E (VAR i|: Item) |
|00001f00| 4c 65 76 65 6c 20 28 29 | 3a 20 53 48 4f 52 54 49 |Level ()|: SHORTI|
|00001f10| 4e 54 0d 52 65 74 75 72 | 6e 73 20 74 68 65 20 69 |NT.Retur|ns the i|
|00001f20| 74 65 6d 27 73 20 6c 65 | 76 65 6c 2e 0d 0d 50 72 |tem's le|vel...Pr|
|00001f30| 65 0d 69 2e 56 61 6c 69 | 64 28 29 09 32 30 0d 69 |e.i.Vali|d().20.i|
|00001f40| 2e 74 79 70 20 49 4e 20 | 7b 72 65 63 54 79 70 2c |.typ IN |{recTyp,|
|00001f50| 20 61 72 72 54 79 70 7d | 09 32 31 0d 0d 50 52 4f | arrTyp}|.21..PRO|
|00001f60| 43 45 44 55 52 45 20 28 | 56 41 52 20 69 3a 20 49 |CEDURE (|VAR i: I|
|00001f70| 74 65 6d 29 20 53 69 7a | 65 20 28 29 3a 20 4c 4f |tem) Siz|e (): LO|
|00001f80| 4e 47 49 4e 54 0d 52 65 | 74 75 72 6e 73 20 74 68 |NGINT.Re|turns th|
|00001f90| 65 20 69 74 65 6d 27 73 | 20 73 69 7a 65 20 69 6e |e item's| size in|
|00001fa0| 20 62 79 74 65 73 2e 0d | 0d 50 72 65 0d 69 2e 56 | bytes..|.Pre.i.V|
|00001fb0| 61 6c 69 64 28 29 09 32 | 30 0d 69 2e 74 79 70 20 |alid().2|0.i.typ |
|00001fc0| 23 20 75 6e 64 65 66 09 | 32 31 0d 0d 50 52 4f 43 |# undef.|21..PROC|
|00001fd0| 45 44 55 52 45 20 28 56 | 41 52 20 69 6e 3a 20 49 |EDURE (V|AR in: I|
|00001fe0| 74 65 6d 29 20 4c 6f 6f | 6b 75 70 20 28 6e 61 6d |tem) Loo|kup (nam|
|00001ff0| 65 3a 20 4e 61 6d 65 3b | 20 56 41 52 20 69 3a 20 |e: Name;| VAR i: |
|00002000| 49 74 65 6d 29 0d 4c 6f | 6f 6b 75 70 20 61 6e 20 |Item).Lo|okup an |
|00002010| 69 74 65 6d 20 69 6e 20 | 61 20 6d 6f 64 75 6c 65 |item in |a module|
|00002020| 20 6f 72 20 61 20 66 69 | 65 6c 64 20 69 6e 20 61 | or a fi|eld in a|
|00002030| 20 72 65 63 6f 72 64 2e | 0d 0d 50 72 65 0d 69 6e | record.|..Pre.in|
|00002040| 2e 56 61 6c 69 64 28 29 | 09 32 30 0d 69 6e 2e 6f |.Valid()|.20.in.o|
|00002050| 62 6a 20 3d 20 6d 6f 64 | 4f 62 6a 20 20 4f 52 20 |bj = mod|Obj  OR |
|00002060| 20 69 6e 2e 74 79 70 20 | 3d 20 72 65 63 54 79 70 | in.typ |= recTyp|
|00002070| 09 32 31 0d 0d 50 6f 73 | 74 0d 69 2e 6f 62 6a 20 |.21..Pos|t.i.obj |
|00002080| 23 20 75 6e 64 65 66 0d | 09 6c 6f 6f 6b 75 70 20 |# undef.|.lookup |
|00002090| 77 61 73 20 73 75 63 63 | 65 73 73 66 75 6c 0d 69 |was succ|essful.i|
|000020a0| 2e 6f 62 6a 20 3d 20 75 | 6e 64 65 66 0d 09 6c 6f |.obj = u|ndef..lo|
|000020b0| 6f 6b 75 70 20 77 61 73 | 20 6e 6f 74 20 73 75 63 |okup was| not suc|
|000020c0| 63 65 73 73 66 75 6c 0d | 0d 0d 54 59 50 45 20 53 |cessful.|..TYPE S|
|000020d0| 63 61 6e 6e 65 72 0d 41 | 20 73 63 61 6e 6e 65 72 |canner.A| scanner|
|000020e0| 20 61 6c 6c 6f 77 73 20 | 74 6f 20 69 74 65 72 61 | allows |to itera|
|000020f0| 74 65 20 6f 76 65 72 20 | 61 6c 6c 20 6d 6f 64 75 |te over |all modu|
|00002100| 6c 65 73 2c 20 61 6c 6c | 20 69 74 65 6d 73 20 69 |les, all| items i|
|00002110| 6e 20 61 20 6d 6f 64 75 | 6c 65 2c 20 6f 72 20 61 |n a modu|le, or a|
|00002120| 6c 6c 20 66 69 65 6c 64 | 73 20 69 6e 20 61 20 72 |ll field|s in a r|
|00002130| 65 63 6f 72 64 2e 0d 0d | 74 68 69 73 2d 3a 20 49 |ecord...|this-: I|
|00002140| 74 65 6d 0d 54 68 65 20 | 72 65 73 75 6c 74 20 6f |tem.The |result o|
|00002150| 66 20 74 68 65 20 6d 6f | 73 74 20 72 65 63 65 6e |f the mo|st recen|
|00002160| 74 20 53 63 61 6e 20 6f | 70 65 72 61 74 69 6f 6e |t Scan o|peration|
|00002170| 2e 0d 0d 65 6f 73 2d 3a | 20 42 4f 4f 4c 45 41 4e |...eos-:| BOOLEAN|
|00002180| 0d 54 68 69 73 20 66 6c | 61 67 20 74 65 6c 6c 73 |.This fl|ag tells|
|00002190| 20 77 68 65 74 68 65 72 | 20 74 68 65 20 6d 6f 73 | whether| the mos|
|000021a0| 74 20 72 65 63 65 6e 74 | 20 53 63 61 6e 20 6f 70 |t recent| Scan op|
|000021b0| 65 72 61 74 69 6f 6e 20 | 68 61 73 20 61 74 74 65 |eration |has atte|
|000021c0| 6d 70 74 65 64 20 74 6f | 20 72 65 61 64 20 62 65 |mpted to| read be|
|000021d0| 79 6f 6e 64 20 74 68 65 | 20 6c 61 73 74 20 69 74 |yond the| last it|
|000021e0| 65 6d 2e 0d 0d 50 52 4f | 43 45 44 55 52 45 20 28 |em...PRO|CEDURE (|
|000021f0| 56 41 52 20 73 3a 20 53 | 63 61 6e 6e 65 72 29 20 |VAR s: S|canner) |
|00002200| 43 6f 6e 6e 65 63 74 54 | 6f 20 28 56 41 52 20 6f |ConnectT|o (VAR o|
|00002210| 62 6a 3a 20 49 74 65 6d | 29 0d 43 6f 6e 6e 65 63 |bj: Item|).Connec|
|00002220| 74 20 74 68 65 20 73 63 | 61 6e 6e 65 72 20 74 6f |t the sc|anner to|
|00002230| 20 61 20 70 61 72 74 69 | 63 75 6c 61 72 20 6d 6f | a parti|cular mo|
|00002240| 64 75 6c 65 20 6f 72 20 | 72 65 63 6f 72 64 2e 0d |dule or |record..|
|00002250| 0d 50 72 65 0d 6f 62 6a | 2e 56 61 6c 69 64 28 29 |.Pre.obj|.Valid()|
|00002260| 09 32 30 0d 6f 62 6a 2e | 6f 62 6a 20 3d 20 6d 6f |.20.obj.|obj = mo|
|00002270| 64 4f 62 6a 20 20 4f 52 | 20 20 6f 62 6a 2e 74 79 |dObj  OR|  obj.ty|
|00002280| 70 20 3d 20 72 65 63 54 | 79 70 09 32 31 0d 0d 50 |p = recT|yp.21..P|
|00002290| 52 4f 43 45 44 55 52 45 | 20 28 56 41 52 20 73 3a |ROCEDURE| (VAR s:|
|000022a0| 20 53 63 61 6e 6e 65 72 | 29 20 43 6f 6e 6e 65 63 | Scanner|) Connec|
|000022b0| 74 54 6f 4d 6f 64 73 0d | 45 61 63 68 20 69 6e 76 |tToMods.|Each inv|
|000022c0| 6f 63 61 74 69 6f 6e 20 | 6f 66 20 73 2e 53 63 61 |ocation |of s.Sca|
|000022d0| 6e 20 77 69 6c 6c 20 72 | 65 74 75 72 6e 20 61 6e |n will r|eturn an|
|000022e0| 6f 74 68 65 72 20 6d 6f | 64 75 6c 65 2e 0d 0d 50 |other mo|dule...P|
|000022f0| 6f 73 74 0d 73 2e 74 68 | 69 73 2e 6f 62 6a 20 3d |ost.s.th|is.obj =|
|00002300| 20 75 6e 64 65 66 0d 7e | 73 2e 65 6f 73 0d 0d 50 | undef.~|s.eos..P|
|00002310| 52 4f 43 45 44 55 52 45 | 20 28 56 41 52 20 73 3a |ROCEDURE| (VAR s:|
|00002320| 20 53 63 61 6e 6e 65 72 | 29 20 47 65 74 4f 62 6a | Scanner|) GetObj|
|00002330| 4e 61 6d 65 20 28 56 41 | 52 20 6e 61 6d 65 3a 20 |Name (VA|R name: |
|00002340| 4e 61 6d 65 29 0d 47 65 | 74 20 74 68 65 20 6e 61 |Name).Ge|t the na|
|00002350| 6d 65 20 6f 66 20 74 68 | 65 20 6d 6f 73 74 20 72 |me of th|e most r|
|00002360| 65 63 65 6e 74 6c 79 20 | 73 63 61 6e 6e 65 64 20 |ecently |scanned |
|00002370| 69 74 65 6d 2e 0d 0d 50 | 72 65 0d 73 2e 74 68 69 |item...P|re.s.thi|
|00002380| 73 2e 56 61 6c 69 64 28 | 29 09 32 30 0d 0d 50 52 |s.Valid(|).20..PR|
|00002390| 4f 43 45 44 55 52 45 20 | 28 56 41 52 20 73 3a 20 |OCEDURE |(VAR s: |
|000023a0| 53 63 61 6e 6e 65 72 29 | 20 4c 65 76 65 6c 20 28 |Scanner)| Level (|
|000023b0| 29 3a 20 53 48 4f 52 54 | 49 4e 54 0d 52 65 74 75 |): SHORT|INT.Retu|
|000023c0| 72 6e 73 20 74 68 65 20 | 73 63 61 6e 6e 65 64 20 |rns the |scanned |
|000023d0| 72 65 63 6f 72 64 27 73 | 20 65 78 74 65 6e 73 69 |record's| extensi|
|000023e0| 6f 6e 20 6c 65 76 65 6c | 2e 0d 0d 50 72 65 0d 73 |on level|...Pre.s|
|000023f0| 2e 74 68 69 73 2e 56 61 | 6c 69 64 28 29 09 32 30 |.this.Va|lid().20|
|00002400| 0d 73 20 63 6f 6e 6e 65 | 63 74 65 20 74 6f 20 72 |.s conne|cte to r|
|00002410| 65 63 6f 72 64 20 76 61 | 72 69 61 62 6c 65 09 32 |ecord va|riable.2|
|00002420| 32 0d 0d 50 52 4f 43 45 | 44 55 52 45 20 28 56 41 |2..PROCE|DURE (VA|
|00002430| 52 20 73 3a 20 53 63 61 | 6e 6e 65 72 29 20 53 63 |R s: Sca|nner) Sc|
|00002440| 61 6e 0d 53 63 61 6e 20 | 61 20 6e 65 77 20 69 74 |an.Scan |a new it|
|00002450| 65 6d 2e 20 54 68 65 20 | 72 65 73 75 6c 74 20 69 |em. The |result i|
|00002460| 73 20 70 75 74 20 69 6e | 74 6f 20 73 2e 74 68 69 |s put in|to s.thi|
|00002470| 73 2e 20 49 66 20 61 6e | 20 61 74 74 65 6d 70 74 |s. If an| attempt|
|00002480| 20 77 61 73 20 6d 61 64 | 65 20 74 6f 20 73 63 61 | was mad|e to sca|
|00002490| 6e 20 62 65 79 6f 6e 64 | 20 74 68 65 20 6c 61 73 |n beyond| the las|
|000024a0| 74 20 69 74 65 6d 2c 20 | 73 2e 65 6f 73 20 69 73 |t item, |s.eos is|
|000024b0| 20 73 65 74 2c 20 6f 74 | 68 65 72 77 69 73 65 20 | set, ot|herwise |
|000024c0| 69 74 20 69 73 20 63 6c | 65 61 72 65 64 2e 0d 0d |it is cl|eared...|
|000024d0| 50 72 65 0d 73 20 69 73 | 20 63 6f 6e 6e 65 63 74 |Pre.s is| connect|
|000024e0| 65 64 09 32 30 0d 0d 50 | 52 4f 43 45 44 55 52 45 |ed.20..P|ROCEDURE|
|000024f0| 20 4c 6f 6f 6b 75 70 20 | 28 6e 61 6d 65 3a 20 4e | Lookup |(name: N|
|00002500| 61 6d 65 3b 20 56 41 52 | 20 6d 6f 64 3a 20 49 74 |ame; VAR| mod: It|
|00002510| 65 6d 29 0d 53 65 74 20 | 75 70 20 61 6e 20 69 74 |em).Set |up an it|
|00002520| 65 6d 20 74 6f 20 61 20 | 6d 6f 64 75 6c 65 2e 0d |em to a |module..|
|00002530| 0d 50 6f 73 74 0d 6d 6f | 64 2e 6f 62 6a 20 3d 20 |.Post.mo|d.obj = |
|00002540| 6d 6f 64 4f 62 6a 65 0d | 09 6c 6f 6f 6b 75 70 20 |modObje.|.lookup |
|00002550| 77 61 73 20 73 75 63 63 | 65 73 73 66 75 6c 0d 6d |was succ|essful.m|
|00002560| 6f 64 2e 6f 62 6a 20 3d | 20 75 6e 64 65 66 0d 09 |od.obj =| undef..|
|00002570| 6c 6f 6f 6b 75 70 20 77 | 61 73 20 6e 6f 74 20 73 |lookup w|as not s|
|00002580| 75 63 63 65 73 73 66 75 | 6c 0d 0d 50 52 4f 43 45 |uccessfu|l..PROCE|
|00002590| 44 55 52 45 20 4c 6f 6f | 6b 75 70 50 61 74 68 20 |DURE Loo|kupPath |
|000025a0| 28 70 61 74 68 3a 20 41 | 52 52 41 59 20 4f 46 20 |(path: A|RRAY OF |
|000025b0| 43 48 41 52 3b 20 56 41 | 52 20 69 3a 20 49 74 65 |CHAR; VA|R i: Ite|
|000025c0| 6d 29 0d 4c 6f 6f 6b 75 | 70 20 61 6e 20 69 74 65 |m).Looku|p an ite|
|000025d0| 6d 20 76 69 61 20 61 20 | 77 68 6f 6c 65 20 64 65 |m via a |whole de|
|000025e0| 73 69 67 6e 61 74 6f 72 | 2c 20 73 74 61 72 74 69 |signator|, starti|
|000025f0| 6e 67 20 77 69 74 68 20 | 61 20 6d 6f 64 75 6c 65 |ng with |a module|
|00002600| 20 6e 61 6d 65 2e 82 f1 | 54 65 78 74 43 6f 6e 74 | name...|TextCont|
|00002610| 72 6f 6c 6c 65 72 73 2e | 53 74 64 43 74 72 6c 44 |rollers.|StdCtrlD|
|00002620| 65 73 63 00 f1 54 65 78 | 74 43 6f 6e 74 72 6f 6c |esc..Tex|tControl|
|00002630| 6c 65 72 73 2e 43 6f 6e | 74 72 6f 6c 6c 65 72 44 |lers.Con|trollerD|
|00002640| 65 73 63 00 f1 43 6f 6e | 74 61 69 6e 65 72 73 2e |esc..Con|tainers.|
|00002650| 43 6f 6e 74 72 6f 6c 6c | 65 72 44 65 73 63 00 f1 |Controll|erDesc..|
|00002660| 43 6f 6e 74 72 6f 6c 6c | 65 72 73 2e 43 6f 6e 74 |Controll|ers.Cont|
|00002670| 72 6f 6c 6c 65 72 44 65 | 73 63 00 f2 04 00 00 00 |rollerDe|sc......|
|00002680| 00 00 00 00 14 00 00 00 | 00 00 00 00 09 00 00 00 |........|........|
|00002690| 00 00 00 00 00 00 00 00 | 00 00 00 01 82 f2 0e 00 |........|........|
|000026a0| 00 00 00 00 00 00 19 00 | 00 00 07 00 00 00 11 00 |........|........|
|000026b0| 00 00 00 00 00 81 02 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026c0| 00 00 00 82 f2 0d 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 22 00 00 | 00 00 00 00 00 00 01 00 |....."..|........|
|000026e0| 00 00 00 48 65 6c 76 65 | 74 69 63 61 00 7c be 01 |...Helve|tica.|..|
|000026f0| 00 00 00 00 00 90 01 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002700| 00 00 00 e0 8c 01 00 e0 | 8c 01 00 34 c8 5d 00 e0 |........|...4.]..|
|00002710| b9 3b 3e 82 f1 44 6f 63 | 75 6d 65 6e 74 73 2e 43 |.;>..Doc|uments.C|
|00002720| 6f 6e 74 72 6f 6c 6c 65 | 72 44 65 73 63 00 f2 15 |ontrolle|rDesc...|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 08 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 09 00 00 00 00 94 4d 73 |........|......Ms|
|00002750| 00 18 2b a3 00 80 fc 0a | 00 00 2f 0d 00 d4 37 67 |..+.....|../...7g|
|00002760| 00 98 2e 98 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002780| 00 00 01 00 00 00 01 0c | 00 00 00 0c 00 00 00 32 |........|.......2|
|00002790| 77 61 73 20 73 75 63 63 | 65 73 73 66 75 6c 0d 69 |was succ|essful.i|
|000027a0| 2e 6f 62 6a 20 3d 20 75 | 6e 64 65 66 0d 09 6c 6f |.obj = u|ndef..lo|
|000027b0| 04 4d 65 74 61 0e 02 00 | 00 00 50 61 72 74 53 49 |.Meta...|..PartSI|
|000027c0| 54 21 00 00 00 00 00 00 | 00 00 00 00 49 1c 00 00 |T!......|....I...|
|000027d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027f0| 00 00 ae 04 81 c8 00 00 | 00 00 00 00 01 3e 64 75 |........|.....>du|
|00002800| 6c 65 73 2c 20 61 6c 6c | 20 69 74 65 6d 73 20 69 |les, all| items i|
|00002810| 6e 20 61 20 6d 6f 64 75 | 6c 65 2c 20 6f 72 20 61 |n a modu|le, or a|
|00002820| 6c 6c 20 66 69 65 6c 64 | 73 20 69 6e 20 61 20 72 |ll field|s in a r|
|00002830| 65 63 6f 72 64 2e 0d 0d | 74 68 69 73 2d 3a 20 49 |ecord...|this-: I|
|00002840| 74 65 6d 0d 54 68 65 20 | 72 65 73 75 6c 74 20 6f |tem.The |result o|
|00002850| 66 20 74 68 65 20 6d 6f | 73 74 20 72 65 63 65 6e |f the mo|st recen|
|00002860| 74 20 53 63 61 6e 20 6f | 70 65 72 61 74 69 6f 6e |t Scan o|peration|
|00002870| 2e 0d 0d 65 6f 73 2d 3a | 20 42 4f 4f 4c 45 41 4e |...eos-:| BOOLEAN|
|00002880| 00 00 00 08 00 3c 00 05 | 01 db 02 00 00 00 01 00 |.....<..|........|
|00002890| 00 00 01 0c 00 00 00 0c | 00 00 00 32 00 70 c6 b8 |........|...2.p..|
|000028a0| 0e 54 00 00 00 1c 00 32 | 00 00 57 4e 53 50 00 00 |.T.....2|..WNSP..|
|000028b0| 00 0a 00 01 ff ff 00 00 | 00 00 00 94 33 bc 00 00 |........|....3...|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+